home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / madaline.inh < prev    next >
Text File  |  1993-08-23  |  3KB  |  129 lines
  1. inst4.1
  2. !****************************************************************
  3. !*                                *
  4. !*    Madaline Network Generator                *
  5. !*                                *
  6. !****************************************************************
  7.  
  8. !    *** check that input / output PE count is non-zero
  9.  
  10. ?&In    1
  11. >bge    CheckOut
  12. @Err    "Madaline MUST have at least one input PE"
  13. :CheckOut
  14. ?&Out    1
  15. >bge    OutOK
  16. @Err    "Madaline MUST have at least one output PE"
  17. :OutOK
  18. ?&Hd1    1
  19. >bge    HidOK
  20. @Err    "Madaline MUST have at least one Hidden Layer 1 PE"
  21. :HidOK
  22. ?&Out    &Hd1
  23. >ble    HOisOK
  24. @Err    "Madaline MUST have at least as many Hidden as Output PEs"
  25. :HOisOK
  26.  
  27. !    *** Load the Control Strategy and LRS if needed
  28.  
  29. @LdCS    "adaline"        !control strategy
  30. @LdLR    "adaline"        !L/R schedule
  31.  
  32. =netn    "InstaNet (tm) Madaline Network version 1.00 20-Jun-88"
  33. =DLnF    0            !learn  re-display off
  34. =DRcF    0            !recall re-display off
  35.  
  36. !    *** Build the Input Layer ***
  37.  
  38. @LLdf                !load default layer to mi_layer structure
  39. =LDln    "In"            !layer name
  40. =Lpes    &In            !copy # of input PEs from menu
  41. !=Ltrn    "Signum"        !signum transfer function
  42. =x    100            !place to put layer on screen
  43. =y     80
  44. #Incl    "stdnwgtf.iif"        !standard # weight fields
  45. @LAdd                !add the input layer
  46.  
  47. !    *** Build the Adaline Layer ***
  48.  
  49. @LLdf                !start with default layer again
  50. =LDln    "Adaline"        !adaline layer name
  51. =Lpes    &Hd1            !hidden PEs
  52. =Ltrn    "Signum"        !transfer function
  53. =Lcmp    "Adaline"        !adaline competition
  54. =Llrn    "Adaline"        !adaline learning rule
  55. +y    80            !up higher on display
  56. #Incl    "stdnwgtf.iif"        !standard # weight fields
  57. @LAdd
  58.  
  59. !    *** Connect Adaline Layer to Bias & Input Layers ***
  60.  
  61. =SPEl    1            !current layer
  62. @SlPE                !select it as destination (sb already)
  63. =NPEl    -1            !near to bias term (source)
  64. @NrPE
  65. =cnwt    1.0            !connection weight
  66. =cnty    WVar            !variable
  67. =cnsc    WAbs            !absolute
  68. @LCFl
  69. =NPEl    0            !input layer
  70. @NrPE
  71. @LCFl
  72.  
  73. !    *** Build the output layer & connect it to prior layer ***
  74.  
  75. @LLdf                !load default layer to mi_layer structure
  76. =LDln    "Out"            !layer name
  77. =Lpes    &Out            !copy # of input PEs from menu
  78. =Lsum    "Majority"        !majority function for output layer
  79. =Ltrn    "Signum"        !signum output function
  80. +y    80
  81. #Incl    "stdnwgtf.iif"        !standard # weight fields
  82. @LAdd                !add the output layer
  83.  
  84. !    *** Set up for proper output connections ***
  85.  
  86. =SPEl    2            !output layer
  87. =SPEn    0
  88. =NPEl    1            !adaline layer
  89. =NPEn    0
  90. =cnty    WFix            !fixed weight
  91. =cnsc    WAbs            !absolute connection (wt is still 1.0)
  92.  
  93. !    *** Connect the Adaline layer to the Output layer
  94.  
  95. :OutCn
  96. @SlPE                !select next PE in output layer
  97. @NrPE                !select next PE in adaline layer
  98. @PCon                !connect two PEs together
  99. +SPEn    1            !next PE in output layer
  100. ?SPEn    &Out            !past the end?
  101. >blt    OutPEOK
  102. =SPEn    0            !back to start of output layer
  103. :OutPEOK
  104. +NPEn    1            !next PE in the adaline layer
  105. ?NPEn    &Hd1            !done with layer?
  106. >blt    OutCn            !no, keep going
  107.  
  108. !    *** Select Control Strategy & L/R Schedule ***
  109.  
  110. @LLsl                !load super layer
  111. =Lctl    "adaline"        !adaline control strategy
  112. =Llrs    "adaline"        !adaline L/R Schedule
  113. =Llnn    "madaline"        !name of learn input
  114. =Lrcn    "madaline"        !name of recall output
  115. #Incl    "stdioset.iif"        !standard I/O settings
  116. =Lscl    -1            !input  low-value
  117. =Loff     1            !input  high-value
  118. =Llow    -1            !output low-value
  119. =Lhgh     1            !output high-value
  120. =Lax1    Epch            !epoch size
  121. @SVsl                !save it back
  122. !
  123. =jogl    -.1            !lower limit for jog
  124. =jogh    +.1            !upper limit for jog
  125. =seed    257            !starting seed number
  126. @seed                !set the seed
  127. @Nini                !Initialize the network
  128. @EOF
  129.